Revista CD Expert 37/CD Expert nº 37.iso/LastCall/lastcall.exe/stuff/lastcall.dxr/00141_Mouth behavior.ls

Text File | 2000-03-27 | 784 b | 44 lines

property pSpr, pOrigLocH, pDownFlag

on beginSprite me
  pSpr = sprite(me.spriteNum)
  pSpr.quality = #high
  pOrigLocH = pSpr.locH
  mAdjustPosition(me, VOID, 0)
end

on mAdjustPosition me, newOffset, flag
  if flag = 0 then
    pSpr.locH = -1000
  else
    pSpr.locH = pOrigLocH + newOffset
  end if
end

on mMoveMouth me, mouthPosition
  label = string(mouthPosition)
  thisLabel = findLabel(pSpr, label)
  if thisLabel then
    gotoFlashFrame(pSpr, label, 0)
  else
    if authoring() then
      put "Can't find mouth position" && label && "for" && pSpr.member.name
    end if
  end if
end

on mouseEnter me
  pDownFlag = 0
end

on mouseDown me
  pDownFlag = 1
  makePatronActive(SpriteToBarSlot(me.spriteNum - 1))
end

on mouseUp me
  if not pDownFlag then
    exit
  end if
end